29/06/2022

Team

          Sarah Vollert       Cailan Jeynes-Smith       Jackson Kwok


Motivation and Gap

Current Data

Current Data


Predicted Flood Extent

Initial Solution

Web Scraping the QLD Traffic list page, then using that data to make a better visualization


Problems:

  • Difficult due to the nature of the page
  • Still doesn’t solve the problem of incomplete reporting

Shiny Solution

Crowd sourced data can fill this data gap

How do we get this data?

How do we display this data?


We solved these two questions using the R packeges Shiny and Leaflet

Open Street Maps

OpenStreetMap (OSM) is a collaborative project to create a free editable geographic database of the world.

Data is in a .pbf file (“Protocolbuffer Binary Format”)

Contains 5 Layers:

  • points => Points of interest, shops, stations, restaurants
  • lines => Ways, paths, streets, roads, train tracks
  • mlines => Routes
  • mpolygons => Regions, Boundaries, Suburbs, Bodies of Water
  • relations => no-left-turn instructions

Demo Code

# get filepath for all osm data for brisbane
file <- "data/Brisbane.osm.pbf"

# extract polygons
feature_mpolygons <- oe_read(file, "multipolygons")

suburb <- "South Brisbane"

# get boundary for desired suburb
suburbBoundary <- filter(feature_mpolygons, name == suburb)

# Extract named roads and paths within suburb
# add columns for status and # of reports
subsetRoads <- oe_read(file, "lines", boundary = suburbBoundary) %>%
    drop_na(name, highway) %>%
    mutate(open = TRUE) %>%
    mutate(reports = 0)

App


Questions